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FOREWORD 


The  research  reported  h#;e  was  accomplished  by  the  U.  S.  Army  Research  Institute  for  the 
behavioral  and  Social  Sciences  (ARI).  The  Institute,  established  1  October  1972  as  replacement  for 
the  U.  S.  Army  Manpower  Resources  Research  and  Development  Center,  unifies  in  one  enlarged 
organization  all  OCRD  activities  in  the  behavioral  and  social  science  area,  including  those  formerly 
conducted  by  the  Behavior  and  Systems  Research  Laboratory  (BESRL)  and  the  Motivation  and 
Training  Laboratory  (MTL). 

The  present  Technical  Research  Report  was  prepared  while  BESRL  existed  as  a  separate  entity 
and  reflects  Division  and  Work  Unit  structure  as  constituted  prior  to  1  October  1972. 

The  Work  Unit  "Simulation  Models  of  Personnel  Operations  II -SIMPO"  was  a  continuation  of 
effort  under  an  operations  research  requirement  described  in  the  Army  Master  Study  Program  under 
the  title  "A  Simulation  Model  of  Personnel  Operations  (SIMPO  )  and  is  Project2Q065101M746(FY 
1972),  "Army  Operations  and  Intelligence  Analysis  "under  the  auspices  of  the  Army  Study  Advisory 
Committee. 

The  present  Technical  Research  Report  deals  with  the  development  and  use  of  DISTRO-II,  a 
major  modification  of  a  previous  BESRL  model,  the  General  Matrix  Manipulator.  DISTRO-II,  which 
simulates  additional  factors  affecting  personnel  distribution,  can  assist  management  by  more 
accurately  predicting  the  effects  of  selected  policy-related  nondeployability  factors. 
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BRIEF 


Requirement: 

To  develop  a  model  enabling  Army  personnel  management  to  assess  quantitatively 
the  impact  of  personnel  policies  on  deployment  and  readiness  of  personnel. 


Research  Product: 

The  DISTRO-II  model,  essentially  a  modification  of  the  General  Matrix  Manipulator 
for  use  in  distribution  problems,  was  developed  to  calculate  deployability  characteristics 
of  the  Army  through  simulation  of  priority  groups  and  distribution  areas,  and  the 
differential  deployability  of  personnel  in  three  categories:  1)  NOS— not  deployable 
overseas— available  for  CONUS  assignment  only;  2)  NST— not  deployable  to  short 
tour— available  for  CONUS  and  long  tour  assignments;  and  3)  IAV— not 
restricted— generally  available  for  assignment. 

The  DISTRO-II  model  expands  the  capability  of  the  General  Matrix  Manipulator  in 
the  following  ways: 

1  Broadens  the  model's  concept  of  policy-caused  nondeployability 

2  Relates  the  world-wide  availability  of  personnel  to  tour  area  manning  levels 

3.  Extends  simulation  to  priority  groups 

4.  Fills  tour  area  requirements  in  advance 
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BACKGROUND 


The  Deployability  Probler 

Projecting  the  Army's  distribution  capabilities  -its  ability  to  provide  qualified  men  for 
specific  jobs  at  an  appropriate  time  and  location  —is  a  difficult  task  for  management  For  many 
years,  Army  management  has  estimated  its  distribution  capability  ;  primarily  as  a  function  of  two 
variables  1)  the  number  of  job  vacancies  and  2)  the  number  f  men  qualified  to  fill  these 
vacancies  At  best,  estimates  based  on  these  data  are  crude  a  oximations  of  reality  Many 
other  factors  restrict  the  deployment  of  qualified  men  to  thr  pa  ticular  jobs  where  they  are 
needed.  As  long  as  the  Army  closely  resembles  a  steady  state  system,  with  losses  equaling 
replacements  and  authorizations  remaining  relatively  constant,  discount  factors  can 
approximate  the  effects  of  inhibiting  or  nondeployability  factors  and  the  estimates  are  within 
acceptable  limits.  However,  when  drastic  dynamic  changes  such  as  the  buildup  and  subsequent 
phase-down  of  forces  in  Vietnam  begin  to  occur  in  the  military  setting,  the  crippling  effects  of 
policy-caused  nondeployability  skyrocket.  It  becomes  very  difficult  to  estimate  accurately  the 
impact  of  rapid  turnover  and  frequent  policy  change  on  personnel  deployment  and  readiness 
Estimation  methods  which  take  into  account  more  of  the  distribution  restraints  are  needed 

Personnel  deployment  and  readiness  in  the  Army,  as  in  other  personnel  systems,  are  a 
function  of  two  major  factors:  1)  requirements  relating  system  constraints  and  policy 
considerations,  and  2)  personnel  resources  reflecting  characteristics  of  individuals  in  the 
system.  These  requirements  and  resources  often  appear  well-balanced,  whereas  in  reality 
several  variables  such  as  rotation  policies  and  tour  area  needs  may  interact  to  reduce  drastically 
the  pool  of  deployable  personnel.  The  problem  for  management  is  basically  one  of  matching 
available  resources  with  system  requirements  while  allowing  all  relevant  constraints  to  interact 
realistically. 

Any  change  in  the  nature  of  military  conflict  may  cause  differential  losses  due  to  deaths, 
injuries,  prisoners  of  war,  or  retirements.  In  turn, both  position  vacancies  and  the  number  of  men 
qualified  to  fill  the  vacancies  are  affected.  Rapid  turnover  caused  by  limiting  combat  service  to  a 
few  months  or  by  requiring  only  two  years’  involuntary  military  service  arouses  major  cost 
considerations  relating  to  training  and  travel  between  assignments 

Management's  values  may  also  affect  the  nondeployability  of  personnel  Management  sets 
priorities  including  which  assignments  should  be  stabilized  for  system  efficiency,  which 
vacancies  should  be  filled  first,  or  which  policies  are  the  most  expedient.  After  such  decisions 
have  been  made,  characteristics  of  the  individuals  in  the  system  may  still  alter  the  picture 
considerably  It  may  be  too  costly  to  assign  men  with  short  expected  termination  of  service  (ETS) 
dates  to  new  positions  Available  personnel  may  not  possess  appropriate  skills  and  therefore 
have  to  be  retrained.  In  order  to  continue  high  morale  among  troops,  individual  rights  must  also 
be  guarded,  and  consistent  predictable  policies  carried  out  with  respect  to  limiting  the  number  of 
combat  area  assignments,  minimizing  time  in  a  combat  zone,  or  allowing  accompanied  tours 
between  combat  assignments  All  these  factors  interact  causing  tension  between  require¬ 
ments  and  resources. 


/ 


Although  computer  models  previously  developed  by  the  Behavior  and  Systems  Research 
Laboratory  (BESRL)  are  not  specifically  designed  to  handle  nondeployability,  they  use  several 
techniques  which  partially  reflect  the  deployability  capabilities  of  the  Army  One  of  the  earliest 
techniques  used  in  the  mass  flow  models  discounted  personnel  inventories  by  a  factor 
representing  transients,  patients,  prisoners,  and  students  (TPS)  Later  models  approach  the 
problem  more  directly  by  representing  specific  types  of  nondeployability.  For  example,  some 
models  maintain  separate  nodes  for  stabilized  assignments,  combat  tour  returnees,  and  other 
special  categories  of  personnel  Simulation  models  may  also  represent  delays  between  system 
entry  and  assignment  as  well  as  monitor  estimated  termination  of  service  Systems  analysts 
emphasize  careful  design  of  assignment  rules  to  faithfully  incorporate  system  constraints  All 
these  methods  are  helpful,  but  management  needs  a  more  comprehensive  evaluation  of  the 
nondeployability  problem.  It  needs  to  meaningfully  relate  management  policies,  system 
variables,  and  individual  characteristics  so  that  more  nondeployability  factors  can  be  accounted 
for 


REQUIREMENT  FOR  DISTRO  II  MODEL 

The  Program  to  Improve  Management  of  the  Army  Resources  (PRIMAR)  Project  5-1, 
"Developing  Techniques  for  Assessing  the  Impact  of  Personnel  Policies  on  Deployability." 
expressed  management's  concern  about  non -deployability.  An  explicit  goal  of  this  project  was 
the  development  of  procedures  for  quantitatively  assessing  the  impact  of  personnel  policies  on 
deployment  and  readiness  A  special  team  of  the  SIMPO I  Steering  Committee  was  assigned  to 
monitor  an  adaptation  of  the  General  Matrix  Manipulator  (GMM)  to  cover  policy-caused 
nondeployability  '  The  GMM  was  selected  because  it  is  a  matrix-based  computer  model  which 
tracks  both  time  in  the  system  and  time  in  the  tour  for  all  personnel  Also,  reassignment  flow 
rules  can  easily  be  input  and  changed  by  the  user  at  the  time  of  execution.  The  two  time 
dimensions,  as  well  as  the  rotation  rules,  are  important  factors  affecting  the  deployability  of 
personnel.  Staff  Officers  of  the  Capabilities  and  Analysis  Division,  Directorate  of  Procurement 
and  Distribution.  Office  of  the  Deputy  Chief  of  Staff  for  Personnel  (DCSPER-CAD),  agreed  to  work 
with  BESRL  in  developing  a  problem  in  which  interactions  between  rotation  and  assignment 
processes  and  other  nondeployability  factors  could  be  examined 

BESRL's  initial  response  to  the  PRIMAR  requirement  was  the  SIMPO  I  Distribution-Rotation 
Model  (DISTRO  I).  an  adaptation  of  the  GMM  to  the  deployability  problem.2  Within  the  original 
GMM  framework.  DISTRO  I  subroutines  distribute  personnel  in  the  GMM  tour  areas  to  command 
elements  At  the  end  of  the  simulation,  all  nontransients  within  a  given  tour  area,  following 
discounting  for  TPS,  are  distributed  to  command  elements  proportionately  to  command  element 
authorizations 

Although  DISTRO  I  represents  nondeployability  more  accurately  than  earlier  models,  it  has 
some  limitations  The  system's  distribution  capabilities  are  not  directly  related  to  tour  area 
manning  levels  during  the  simulation.  The  total  number  of  available  personnel  serves  only  as  a 
ceiling  in  determining  tour  area  manning  levels.  DISTRO  I  does  not  consider  the  wot  Id-wide 
availability  of  personnel,  it  distributes  each  tour  area  separately  without  relating  it  to  the  total 
system  Separate  distribution  of  each  tour  area  to  command  elements  is.  at  best,  a  fragmented 
approach 


1  Witt,  Joanne  M.  and  Adele  P  Narva.  SIMPO  I  General  Matrix  Manipulator  (GMM)  Technical  Research 
Report  1165  Behavior  and  Systems  Research  Laboratory,  Arlington,  VA.  January  1971 

*  Witt,  Joanne  M.  SIMPO-I  Di-TRO  -Distributioi.  Rotation  Model.  Research  Memorandum  71  4  Behavlo 
and  Systems  Research  Laboratory,  Vlington,  VA.  September  1971. 
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DISTRO  II  MODEL 


To  more  accurately  model  deployability  characteristics  of  the  Army,  BESRL  scientists  with  the 
guidance  of  DCSPER  personnel  have  developed  the  DISTRO  II  Model,  a  set  of  subroutine  options 
which  significantly  modify  the  GMM.  DISTRO  II  routines  calculate  deployability  indices  which 
interact  with  the  assignment -rotation  process  throughout  the  GMM.  DISTRO  II  routines  have  four 
major  effects  on  the  GMM  simulation 

1  They  broaden  the  model's  concept  of  policy-caused  nondeployability 

2  They  relate  the  world  wide  availability  of  personnel  to  tour  area  manning  levels. 

3  They  extend  the  GMM  simulation  to  priority  groups 

4  They  fill  tour  ar  j  requirements  in  advance 

DISTRO  II  broadens  the  definition  of  deployability  in  that  it  accounts  for  more  nondeployability 
factors  than  does  either  the  GMM  alone  or  DISTRO  I  (Figure  1 )  Personnel  matrices  in  the  GMM 
alone  represent  all  personnel  as  assets.  DISTRO  I  separates  ncndeployable  transients  from 
deployable  assets  Based  on  time  in  tour,  DISTRO  II  matrices  represent  three  kinds  of  personnel 
transients,  assets,  and  reassignables,  each  with  its  own  deployability  characteristics.  The 
transients  in  Figure  1  are  those  who  are  reassigned  to  the  area  but  who  are  not  yet  considered 
assets.  Assets  are  those  who  are  actually  in  an  area  anu  who  cannot  be  reassigned,  whereas  the 
reassignables  are  available  for  reassiqnment 

DISTRO  II  employs  the  concept  of  differential  deployability.  Differential  deployability  means 
that  a  person  is  deployable  with  respect  to  u  specific  area,  eg.,  an  individual  may  be  deployable  to 
long  tour  and  not  to  short  tour,  or  to  Continental  United  States  (CONUS)  and  not  to  long  tour.  In 
other  words,  deployability  has  meaning  only  in  reference  to  specific  area  needs 

In  DISTRO  II.  differential  deployability  is  represented  by  three  categories  of  personnel 
availability 

1.  NOS— not  deployable  overseas— available  for  CONUS  assignments  only 

2.  NST— not  deployable  to  short  tour— available  for  CONUS  and  long  tour  assignments 

3.  IAV— not  restricted— generally  available  for  assignment 

These  availability  categories  reflect  restrictions  placed  on  individuals  available  for  reassignment 
As  each  man  completes  a  tour  or  otherwise  becomes  available  for  reassignment,  he 
automatically  increases  the  tally  in  one  of  the  three  availability  indices  (Figure  2).  For  example,  a 
few  men  are  stationed  in  CONUS  for  recurring  tours  because  of  special  personal  circumstances 
or  because  of  their  unique  skills  As  each  of  these  men  completes  a  CONUS  tour,  he  adds  one  to 
the  NOS  counter.  Most  short  tour  returnees  are  deployable  only  to  accompanied  CONUS  and  long 
tour;  these  men  are  counted  by  the  NST  variable.  Others,  completing  two  years  in  CONUS  or  the 
long  tour  and  being  eligible  for  any  assignment,  are  added  to  the  IAV  category.  The  sum  of  NOS, 
NST,  and  IAV  equals  all  personnel  available  for  reassignment  at  the  end  of  a  time  period.  The 
three  categories  encompass  most  of  the  restrictions  on  deployment. 


Figure  1.  Types  of  matrices 
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Figure  2.  GMM  DISTRO  II  deployability  categories 


TIME  IN  TOUR 


GMM-DISTRO  II 


TIME  IN  SYSTEM 
TRANSIENTS 


A 

S  S  E  ' 

rs 

REASSIGNABLE 


TIME  IN  SYSTEM 

NOT  OVERSEAS 

NOT  SHORT  TOUR 


GENERAL 


In  the  GMM,  input  to  a  given  tour  area  is  a  direct  function  of  that  tour  area  s  authorization 
without  consideration  of  the  availability  of  personnel  assets.  By  applying  the  DISTRO I  options, 
tour  area  manning  levels  are  made  to  reflect  the  total  number  available  for  reassignment.  These 
manning  levels,  however,  ignore  differential  deployability  by  assuming  that  deployable 
personnel  assets  can  be  assigned  to  any  area.  Employing  DISTRO  II  options,  manning  levels  in 
the  GMM  reflect  authorizations,  assets,  and  the  number  of  men  available  for  reassignment  to 
specific  areas.  To  accomplish  the  best  distribution  of  available  personnel  to  tour  areas  DISTRO  II 
first  distributes  the  most  restricted  group  of  personnel,  NOS,  to  CONUS  Following  the  NOS 
assignments,  NST  personnel  are  distributed  to  CONUS  and  long  tour  Then  personnel  in  the 
least  restricted  group,  IAV,  are  distributed  among  CONUS,  long  tour,  and  short  tour  This 
approach  prevents  filling  one  tour  area  to  its  fully  authorized  strength  only  to  find  that  the  last  tour 
to  be  filled  has  a  critical  shortage.  Since  the  model  initially  considers  specific  availability  of 
personnel  in  determining  manning  levels,  all  tour  areas  are  filled  equitably 

Present  Army  management  procedures  for  utilizing  available  assets  are  based  on  five 
distribution  groups,  called  priority  groups,  which  are  filled  relative  to  their  importance  to 
maintaining  a  maximally  efficient  military  system  The  GMM  works  to  fill  tour  area  authorizations 
wi  ,hout  considering  priority  groups.  Employing  the  DISTRO  I  routines,  tour  area  personnel  are 
distributed  at  the  end  of  the  simulation  into  the  five  priority  groups  The  priority  groups,  however, 
are  not  considered  during  the  simulation  A  new  approach  was  needed  to  distribute  personnel  to 
each  of  these  priority  groups  across  the  entire  system— not  separately  within  each  tour  area. 
Instead  of  determining  how  many  are  needed  in  the  short  tour  and  then  saying  that  N  of  these  will 
be  in  priority  group  1  as  in  DISTRO  I,  management  would  like  to  determine  how  many  are 
available  for  priority  group  1  and  then  send  N  of  these  to  short  tour.  The  DISTRO  II  procedure 
places  major  emphasis  on  filling  priority  groups  across  tour  areas  rather  than  filling  specific  tour 
areas. 

The  common  element  linking  the  GMM  simulation  matrices  to  the  expanded  simulation  of 
priority  groups  in  DISTRO  II  is  the  tour  area.  DISTRO  II  totals  assets  within  individual  tour  areas 
and  distributes  these  assets  into  five  priority  groups  which  are  not  represented  directly  by  the 
GMM  matrices  (Figure  3).  DISTRO  II  subroutines  determine  how  many  of  the  total  tour  area 
assets  are  serving  in  each  priority  group  within  the  tour  area  and  how  many  of  the  available 
assets  will  be  assigned  to  each  priority  group  across  all  tour  areas  considering  their  current 
assets  and  authorizations  Tour  area  manning  levels  are  then  recalculated  by  apportioning  new 
personnel  in  each  priority  group  to  the  individual  tour  areas  These  tour  area  manning  levels  are 
used  as  a  driving  force  in  the  GMM  to  reassign  personnel.  Thus,  the  distribution  process  becomes 
an  integral  part  of  the  rotation-assignment  process  within  GMM-DISTRO  II 

Figure  4  shows  how  most  models,  including  the  GMM,  fill  requirements.  The  top  priority 
areas  get  1 00%  or  maximum  fill,  the  middle  priority  groups  get  less,  and  the  low  priority  areas  get 
what  is  left  over  Often  this  method  results  in  a  critical  shortage  in  one  or  more  areas  It  is 
necessary  to  maintain  a  minimum  number  of  men  in  low  priority  areas  in  order  that  high  priority 
areas  can  function  adequately  Employing  the  DISTRO  II  options  of  determining  manning  levels 
based  on  the  total  world-wide  availability  of  personnel,  all  areas  can  be  filled  adequately  in 
relation  to  the  total  system  The  emphasis  shifts  from  tour  areas  to  priority  groups,  and  Figure  5 
shows  the  results  The  priority  groups  are  filled  in  relation  to  their  importance  as  specified  by 
management. 

DISTRO  II  also  directs  the  GMM  to  fill  requirements  one  month  in  advance  to  allow  sufficient 
travel  time  for  men  to  reach  their  destinations.  Manning  levels  for  month  two  are  actually  filled  in 
month  one.  The  model  determines  manning  levels  for  month  two  based  on  the  number  of 
projected  assets  for  month  two  and  the  number  available  for  reassignment  in  month  1 .  DISTRO  II, 
employing  a  combination  of  assignments  in  advance,  differential  deployability,  and  simulation  of 
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Figure  3.  GMM-DISTRO  II  extension  into  priority  groups 
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Figure  4.  Most  models  fill  tour  areas  like  this 


priority  groups,  coupled  with  reassignment  policies  as  represented  in  the  GMM  including 
separate  representation  of  different  types  of  deployable  personnel  presents  a  more  realistic 
picture  of  pol icy  caused  deployability  for  management  than  did  previous  models. 

DISTRO  II  can  be  useful  to  management  in  problems  such  as  the  following 

1  How  can  management  provide  more  experienced  personnel  in  t’te  short  tour?  If 
extended  tours  are  allowed  in  return  for  various  alternative  rotat  on  policies,  how  many 
more  experienced  personnel  will  be  available?  At  what  point  in  time  would  the  alternative 
policies  become  infeasible?  If  management  promotes  men  faster,  at  what  point  does  the 
system  have  a  shortage  of  men  with  the  minimum  qualifications  for  promotion? 

2.  What  are  the  best  policy  alternatives  which  will  limit  the  number  of  combat  tours 
for  career  personnel? 

3.  What  are  the  effects  of  allowing  more  time  between  assignments? 

These  and  many  other  questions  can  be  studied  with  the  use  of  GMM  DISTRO  II  so  that 
management  can  better  predict  the  effects  of  nondeployability  factors. 


DISTRO  II— DISTRIBUTION  ROTATION  MODEL 


TECHNICAL  SUPPLEMENT:  PROGRAM  DOCUMENTATION 


PRINCIPLES  OF  THE  GENERAL  MATRIX  MANIPULATOR 


The  GMM  is  a  matrix  based  mass  (low  model  which  simulates  rotation  policies,  skill 
acquisition,  and  assignment  policies  of  Army  management  Groups  of  personnel  are  represented 
by  numbers  arranged  in  two  dimensional  matrices  such  as  those  in  Figure  6.  The  dimensions 
may  be  defined  by  management  as  time  in  service  and  time  in  tour  or  time  in  service  and  time  in 
grade  These  factors  are  important  for  determining  the  deployability  of  personnel  Each  matrix 
represents  a  group  of  similar  individuals,  such  as  1 1B1  in  the  short  tour  or  1 1B2  in  the  long  tour 

Movements  between  these  matrices  are  determined  by  management  policies  These 
movements  represent  policies  of  two  types  rotation  and  promotion  (Figure  7)  Type  1  flow 
simulating  promotions,  is  across  skill  levels —  a  horizontal  move  in  which  a  person  s  time  in  tour 
remains  the  same  while  his  time  in  grade  moves  to  the  initial  position  of  the  next  grade  Type  2 
simulates  reassignments  Movement  between  commands  is  from  one  time  in  grade  and  tune  in 
tour  to  the  same  time  m  grade  and  the  first  time  position  in  another  tour  Reassignments  can 
occur  at  the  end  of  a  tour  of  duty  or  prior  to  the  end  of  a  tour  of  duty. 

Employing  these  matrices  and  flows,  the  GMM  logic  is  relatively  simple  (Fi^  're  8)  It  updates 
the  matrices,  calculates  assets,  determines  requirements,  uses  flow  rules  to  fill  these 
requirements,  and  then  repeats  the  cycle  for  each  subsequent  time  period 

INTERFACE  OF  GMM  WITH  DISTRO  II 

DISTRO  II  options  are  integrated  with  the  GMM  simulation  process  Under  these  options. 
DISTRO  II  subroutines  gam  control  to  shift  the  emphasis  of  the  simulation  from  tour  areas  to 
priority  groups  spanning  the  tour  areas  To  accomplish  this,  the  DISTRO  II  subroutines  convert 
the  GMM  tour  area  data  to  priority  group  data  The  priority  group  data  are  manipulated  so  as  to 
represent  distribution  processes  in  the  system.  They  are  then  reconverted  to  tour  area  data  As  a 
consequence,  the  new  tour  area  data  reflect  priority  group  hierarchies  and  yet  are  still  in  a  form 
compatible  with  the  GMM  The  GMM  then  regains  control  and  continues  to  operate  on  the  tour 
area  data  as  if  it  had  not  been  altered.  By  switching  back  and  forth  between  GMM  and  DISTRO  II 
routines,  the  simulation  of  matrices  representing  tour  areas  and  personnel  categories  is 
expanded  to  cover  a  new  dimension  of  priority  groups  This  expansion  occurs  with  minimal 
increase  in  on-line  storage  and  data  preparation  If  these  priority  groups  were  simulated  directly, 
the  number  of  matrices  in  the  GMM  would  have  to  be  multiplied  by  fiv*  ane  matrix  for  each 
priority  group  would  be  needed  to  replace  each  personnel  matrix  For  example,  instead  of  one 
matrix  to  represent  personnel  on  their  first  short  lour,  the  GMM  alone  would  require  five 
matrices,  one  for  personnel  on  their  first  short  tour  in  each  priority  group  Besides  making  the 
data  base  massive,  flow  rules  among  the  matrices  would  become  much  more  complicated  and 
repetitive 

DISTRO  II  can  be  expressed  as  a  series  of  events  interwoven  with  the  GMM.  Figure  9 
illustrates  this  integration  of  GMM  and  DISTRO  If  logical  events.  DISTRO  II  events  are 
summarised  in  the  following  eight  steps 

1  Input  DISTRO  II  data 

2  Calculate  personnel  assets 

3  Summarize  authorizations  by  distribution  or  tour  areas 
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Figure  8  General  matrix  manipulator  (GMM)  logic 
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Figure  9.  Interface  of  GMM-DISTRO  II  logic 
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Calculate  personnel  availability  groups 


b  Distribute  assets  and  available  personnel  to  priority  groups 

6  Convert  priority  group  manning  levels  to  tour  area  data 

7  Store  DISTRO  II  data 

8  Output  DISTRO  II  summarized  data 

Step  1  is  executed  once  at  the  beginning  of  the  simulation.  Steps  2  through  7  are  executed  in 

sequence  once  during  each  time  period  of  the  simulation  At  the  end  of  the  simulation,  Step  8  is 

executed  These  steps,  monitored  by  the  GMM  main  program,  MAINGMM,  are  executed  by  eight 
separate  entry  points  in  the  main  DISTRO  II  subroutine,  DISTR02,  and  by  an  auxiliary  subroutine, 
ALLOT  (FORTRAN  Listings  of  DISTR02  and  ALLOT  are  in  the  Appendix).  The  following  sections 
describe  these  eight  steps  in  detail  Included  are  flow  charts  and  descriptions  of  the  computer 
routines  to  accomplish  each  step  and  the  way  in  which  the  DISTRO  II  routines  interact  with  those 
in  the  GMM 

Along  with  other  GMM  parameters,  the  variable  IDISTON  is  input  at  the  beginning  of  each 
GMM  simulation  If  IDISTON  is  equal  to  or  less  than  zero,  the  GMM  proceeds  without  DISTRO  II 
intervention  If  IDISTON  is  greater  than  zero,  however,  the  following  eight  DISTRO  II  steps  are 
executed  as  they  occur  in  the  GMM  simulation 

Step  1  Input  DISTRO  II  data  The  GMM  relinquishes  control  to  DISTR02  Entry  INPUTD 
(Figure  10)  which  inputs  DISTRO  II  data  The  data  define  the  relationship  of  matrices 
representing  tour  areas  within  the  GMM  to  priority  groups  (PG)  within  DISTRO  II.  Input  data 
setup,  format,  and  variable  definitions  are  described  in  Figure  1 1,  Table  1,  and  Table  2 

Entry  INPUTD  reads  four  different  types  of  data,  major  parameters,  availability  parameters, 
asset  parameters,  and  authorization  and  manning  level  parameters.  Boundaries  for  the  entire 
DISTRO  II  simulation  are  set  by  the  major  parameter  card.  The  remaining  input  parameters 
operationally  define  these  boundaries.  For  example,  the  number  of  availability  categories, 
NAVCAT,  input  in  the  major  parameter  card,  is  defined  in  the  availability  parameter  cards  by  the 
variablesPERNOS.  PERNST.and  PERIAV.  These  variables  are  percentages  of  personnel  m  each 
matrix  who  are  available  for  the  three  different  types  of  assignment— NOS,  NST,  and  IAV.  Asset 
parameters  identify  GMM  matrices  by  distribution  areas  for  use  in  calculating  assets. 
Authorizations  are  input  for  priority  groups  within  each  distribution  area  For  example,  if  there  are 
three  distribution  areas  (DAI,  DA2,  and  DA3)  representing  short  tour,  long  tour,  and  CONUS 
respectively,  and  if  there  are  five  priority  groups,  then  there  will  be  1 5  authorizations— one  for 
short  tour  priority  group  1.  one  for  short  tour  priority  group  2,  etc.  Authorization  and  manning 
level  parameters  also  include  fill  rates,  which  indicate  the  relative  importance  of  filling  each  of 
the  five  priority  groups  across  all  distribution  areas.  In  order  to  represent  only  one  priority  group 
within  a  given  distribution  or  tour  area,  the  user  would  input  zero  authorizations  for  the  other  four 
priority  groups  within  the  area.  The  remaining  seven  steps  are  totally  dependent  upon  the  setup 
of  DISTRO  II  parameters  These  parameters  must  be  accurately  estimated  in  order  to 
meaningfully  represent  distribution  capabilities  of  the  system. 

Following  the  input  of  DISTRO  II  data,  GMM  regains  control  to  input  the  remaining  GMM 
system  data  and  to  begin  the  simulation.  After  updating  the  system  and  making  initial  personnel 
transfers,  the  GMM  teams  up  with  DISTR02  Entry  ASSET  to  take  an  inventory  of  personnel 
assets. 
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Figure  10.  Entry  INPUTD  inputs  DISTRO  II  data 
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Figure  11.  Data  setup  for  DISTRO  II 


Table  1 


Card  Description 


Major  Parameter 
Card 


Availability  Pai  i- 
meter  Cards 


Asset  Parameter 
Cards 


Authorization  and 
Manning  Levul 
Parameter  Cards 


INPUT  FORMAT  FOR  DISTRO  II 


No.  of 


Cards 

Variable  Name 

Columns 

Format 

1 

NOOISGR 

1-10 

no 

NPERCAT 

11-20 

no 

NOPRGRP 

21-30 

no 

NMATRIX 

31-40 

no 

NAVCAT 

51-60 

no 

(NMATRIX* 

PERNOS(I) 

1-10 

F10  3 

NAVCAT+8- 

NAVCAT)/8 

PERNST(I) 

11-20 

F10.3 

PERIAV(I) 

(1  =1  .NMATRIX) 

21-30 

F10.3 

CIOS/8 

IOSDGR(l) 

(1  =  I.CIOS) 

1-10 

no 

NMATRIX/8 

MATWDGR(I) 

(1  =  1, NMATRIX) 

1-10 

no 

NMATRIX/8 

MATWPERC(I) 

(1  =  1, NMATRIX) 

1-10 

no 

(NOPRGRP* 

NODISGR)/8 

R(l) 

(1  =  1  .NOPRGRP'NODISGR) 

1-10 

F10  3 

(NODISGR* 

NPERCAT* 

AUTH(I) 

(1  =  1  ,NODISGR'NPERCAT*NOPRGRP) 

1-10 

no 

NOPRGRPI/8 

LAST/8 

NEWAUTH(I) 

(1  =  FIRST, LAST) 

1-10 

no 

-  IQ  - 


Table  2 


VARIABLES  INPUT  BY  USER  TO  DISTRO  II 


Variable 


Definition 


Major  Parameters 


NODISGR 

NPERCAT 

NOPRGRP 

NMATRIX 

NAVCAT 

Availability  Parameters 
PERNOS(I) 

PERNST(I) 

PERIAV(I) 

lOSDGR(l) 


Number  of  distribution  groups  or  tour  areas 
Number  of  personnel  categories  within  each  tour  area 
Number  of  priority  groups  withn  each  tour  area 
Number  of  matrices  with  the  GMM 
Number  of  availability  categories 

Percent  of  personnel  completing  matrix  I  who  are  eligible  for 
CONUS  only  (not  overseas).  (Distribution  Group  3) 

Percent  of  personnel  completing  matrix  I  who  are  eligible  for 
CONUS  and  LT  (not  short  tour).  (Distribution  Groups  2-3) 

Percent  of  personnel  completing  matrix  I  who  are  eligible  for 
CONUS,  LT,  and  ST.  (Distribution  Groups  1,  2  and  3) 

Distribution  group  or  tour  area  for  Ith  input  category 


Asset  Parameters 

MATWDGR(I)  Distribution  group  of  tour  area  for  Ith  matrix 

MATWPERC(I)  Personnel  category  for  Ith  matrix 

Authorization  and  Manning  Level  Parameters 


R(l)  Fill  rate  for  Ith  distribution  priority  group 

AUTH(I)  Authorization  for  Ith  distribution  priority  group 

NEWAUTH(I)  Vector  control  for  inputting  new  authorizations  for  month  I. 

If  in  month  I  the  NEWAUTH(I)  equals  1,  new  authorizations 
are  read  in.  If  the  NEWAUTH(I)  equals  zero,  the  authorizations 
previously  read  in  are  used. 


-  ?0 


Step  2.  Calculate  personnel  assets.  At  any  point  in  time,  each  matrix  can  be  represented 
as  a  combination  of  transients,  current  assets,  and  reassignables  (Figure  12). 
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Figure  12.  Types  of  personnel  within  matrix 


GMM  subroutine  SUMMARY  calculates  matrix  assets  for  the  period  (TP, )  following  the  one 
currently  being  simulated  (TPq).  Each  matrix  is  summed  from  row  1  in  the  tour  through  row  L-1  in 
the  tour  and  columns  1  through  MAXLEN  in  the  system.  Matrix  assets  (AS)  for  TP1  are  equal  to 
the  sum  of  the  transients  and  assets  for  TPq,  excluding  those  in  their  final  month  in  the  tour 
(completions) 

asTP  =  TRANSIENTS™  +  ASSETS™  COMPLETIONStd 

1  irT)  "0  TP0 

This  projection  of  assets  for  the  following  TP1  assumes  that  transients  in  the  current  TPq  will  be¬ 
come  assets  and  that  personnel  in  their  last  month  in  the  tour  (completions)  will  become  eligible 
for  reassignment  in  the  following  TP  ^ .  After  assets  have  been  determined  for  each  matrix.  Entry 
ASSET  (Figure  13)  totals  the  assets  for  all  matrices  within  each  of  the  three  distribution  areas 
(DAI,  DA2,  DA3) 

AS  Assets  for  DAI,  AS  =  Assets  for  DA2;  AS  =  Assets  for  DA3 

DAI  DA2  DA  3 

The  objective  of  the  remaining  steps  is  to  input  men  into  the  proper  DA  and  PG  one  TP  in 
advance  After  updating  at  the  end  of  the  current  TPq,  the  currect  number  of  men  should  be 
serving  in  the  areas  where  they  are  needed. 


Step  3  Summarize  authorizations  The  Ith  element  of  the  NEWAUTH  vector  is  checked 
during  each  time  period.  If  the  element  equals  zero,  the  last  authorizations  input  to  the  model  are 
employed.  If  the  element  is  positive,  DISTR02  reads  new  authorizations  for  each  PG  and  DA. 
Entry  AUTHOR  (Figure  14)  then  sums  these  authorizations  for  each  DA. 


AUTH  Authorization  for  Ith  PG  within  Jth  DA 

DAJ.PGI 

The  GMM  regains  control  to  input  new  personnel  into  the  system  after  which  control  returns 
to  DISTR02  for  calculation  of  personnel  available  for  reassignment. 

Step  4  Calculate  personnel  availability  groups.  In  each  matrix  during  the  TPo*  all 
personnel  available  for  reassignment  can  be  broken  into  three  categories  (1)  NOS,  (2)NST,  and 
(3)  IAV  Entry  AVAIL  (Figure  1 5)  multiplies  the  number  of  reassignable  personnel  (RE)  from  each 
of  the  matrices  in  the  GMM  by  its  availability  parameters  (PERNOS,  PERNST,  and  PERIAV)  and 
determines  how  many  people  are  categorized  as  NOS,  NST,  and  IAV.  To  these  totals  it  adds  new 
system  input  to  the  appropriate  eligibility  category. 


NOS  =  E 

(RE, 

*  PERNOS,)  + 

inputnos 

NST  =  T, 

(RE, 

*  PERNST,)  + 

INPUTnst 

IAV  =  £ 

(RE, 

*  PERIAV,)  + 

INPUT, AV 

Steps  1  through  4  are  not  an  integral  part  of  the  distribution  process.  They  convert  GMM  data 
into  a  form  compatible  with  DISTR02  and  then  calculate  summary  data.  This  data  preparation  is 
necessary  prior  to  the  actual  distribution  process,  which  is  accomplished  by  Step  5. 

Step  5  Distribute  assets  and  available  personnel  to  priority  groups.  The  distribution 
process  consists  of  a  series  of  separate  distributions  of  different  groups  of  personnel.  The  entire 
process  is  directed  by  Entry  DISTR  (Figure  1 6),  the  brain  of  the  DISTRO  II  model.  According  to  the 
instructions  given  by  Entry  DISTR,  Subroutine  ALLOT  accomplishes  the  actual  distribution  of 
specific  groups  of  personnel.  Following  each  separate  distribution  by  ALLOT,  control  returns  to 
Entry  DISTR  for  additional  instructions. 

Initially.  DISTR  directs  ALLOT  to  distribute  current  assets  in  each  DA  to  PG's  within  that  DA. 
These  assets  will  have  an  influence  on  the  number  of  additional  personnel  assigned  to  each  DA- 
PG  After  the  current  assets  have  been  distributed  within  their  own  DA's,  DISTR  directs  A  L  LOT 
to  distribute  all  personnel  available  for  reassignment  to  PG’s  across  appropriate  DA's 
considering  current  assets  in  the  DA-PG,  authorizations  for  the  DA-PG,  and  the  number  of 
personnel  available  for  that  DA-PG.  First,  the  most  restricted  personnel,  NOS,  are  distributed  to 
DA3  Then  NST  personnel  are  distributed  among  PG’s  within  DA2  and  DA3.  Finally,  the  most 
unrestricted  personnel,  IAV,  are  distributed  to  all  PG’s  within  all  DA's.  This  sequence  of 
distributions  is  described  below  in  detail,  including  the  actual  steps  which  Subroutine  ALLOT 
takes  to  accomplish  each  of  the  distributions. 
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Figure  13.  Entry  ASSET  sums  assets 
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14.  Entry  AUTHOR  sums  authorizations 
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To  iransfer  control  to  Subroutine  ALLOT,  Entry  DISTR  uses  the  following  call  statement 


Call  ALLOT(NEWIP.  IDIS,  NOPRGRP,  NODIS,  IOVER) 

The  values  of  the  input  elements  -NEWIP,  IDIS,  NOPRGRP,  and  NODIS  calculated  in  DISTR, 
determine  the  following  conditions  for  the  distribution  process: 

NEWIP—  amount  of  new  input  available  for  distribution 

IDIS— first  DA  to  which  NEWIP  will  be  distributed 

NOPRGRP— number  of  PG's  within  each  DA 

NODIS— number  of  DA's  across  which  NEWIP  will  be  distributed  The  element,  IOVER, 
is  calculated  in  ALLOT  and  is  returned  to  DISTR  as  the  number  of  available  personnel  over  and 
above  PG  authorizations.  This  overage  will  be  distributed  to  DA3  at  the  end  of  the  distribution 
process 

Initially  DISTR  directs  ALLOT  to  distribute  current  assets  within  DA's  to  PG  s 
Call  ALLOT(ASDAj,|.  NOPRGRP,  1.0) 

Subroutine  ALLOT  gains  control  and  proceeds  with  the  following  steps  to  accomplish  the 
distribution  (Figure  17). 

a.  It  obtains  asset  totals  for  each  PG  across  all  DA's. 

IDIS+NODIS-1 

SUMASS(I)  =  E  (ASDAj  pGj) 
j= I DIS 


If  ALLOT  is  distributing  current  assets,  the  assets  (AS  ) 

DAj.PGi 

are  equal  to  zero  prior  to  the  distribution  Therefore,  SUMASS(I)  equals  zero. 

b.  It  obtains  authorization  totals  for  each  priority  group  across  all  DA's  concerned. 


NODIS+IDIS-1 

SUMAUTH(I)  =  2  (AUTHDAj  pGi  ) 

j=IDIS 

c.  It  obtains  priority  group  weighted  shortfalls  across  all  DA's, 

PRNEED(I)  =  (SUMAUTH(I)  -  SUMASS(I))  *  R(l> 

Also,  it  obtains  the  total  weighted  PG  shortfall. 

NOPRGRP 

SUMNEED  =  £  (PRNEED(I)) 

1  =  1 
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d  Using  the  information  obtained  in  steps  a  through  c,  it  determines  how  many  personnel 
should  be  input  to  PGs  within  DAs 

NEWIN  =  (NEWIP  SUMNEED)  *  PRNEED(I)  *  (AUTH  /SUMAUTH(I)) 

DAj.PGi  DAj.PGi 

e  It  adds  the  new  input  to  the  respective  DA-PG  assets 


ASDAj,PG.  =  ASDAj,PG.  +  NEW,NDAj.PGi 


Authorizations  for  DA-PG  serve  as  ceilings  for  DA-PG  except  when  current  assets  are  being 
distributed  within  their  own  distribution  areas.  When  distributing  NOS,  IAV,  and  NST  personnel. 
DA2  and  DAI  should  be  held  to  their  authorization  levels.  All  excess  personnel  (those  over  the 
authorizations)  should  be  accumulated  in  the  variable  IOVER 

f  After  current  assets  have  been  distributed  within  their  DA's,  DISTR  direct-  AL*  OT  to 
distribute  NOS  men  to  DA3. 

Call  ALLOT  (NOS,  3  5,  1.  0) 

Employing  these  parameters,  ALLOT  repeats  steps  a  through  e 
g  ALLOT  is  directed  to  distribute  NST  men  to  DA2  and  DA3. 

Call  ALLOT  (NST.  2.  5,  2,  0) 

(Repeat  steps  a  through  e) 

If  IOVER  is  greater  than  zero,  IOVER  is  distributed  to  DA3 
h  IAV  personnel  are  distributed  to  DAI,  DA2,  and  DA3. 

Call  ALLOT  (IAV,  1.  5,  3,0) 

(Repeat  steps  a  through  e) 

i  If  there  are  men  above  the  authorization  levels  in  DA2  and  DAI,  (IOVER),  distribute 
IOVER  to  DA3 

Call  ALLOT  (IOVER,  3,  5,  1,  0) 

After  all  personnel  have  been  distributed,  the  matrix  AS  represents  projected 

DAj,  PGi 

manning  levels  for  the  Ith  PG  within  the  Jth  DA  for  the  following  time  period  (TP^. 


Step  6  Convert  priority  group  manning  levels  to  tour  area  data  Entry  GMMANLEV  (Figure  < 

18)  totals  PG  manning  levels  within  each  DA. 

NOPRGRP 

manlevdaj  =  z  asDAJPG| 

1=1 
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Figure  17.  Subroutine  ALLOT  distributes  personnel 
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Figure  17  continued 
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Figure  18.  Entry  GMMANLEV  determines  tour  requirements 


3? 


These  DA  manning  levels  will  serve  as  tour  area  manning  levels  in  the  GMM.  From  the  DA 
manning  levels  Entry  GMMANLEV  subtracts  the  actual  number  of  current  assets  in  the  tour  area 
to  obtain  the  number  of  men  who  will  be  input  to  the  tour  areas  by  the  GMM. 


nlldsdaj  manllvdaj  -  ASSLTSdaj 


The  GMM  then  regains  control  and  fills  these  tour  area  needs  according  to  the  priority  of  fill 
rules 

Step  7  Store  DISTRO  II  data.  At  the  end  of  the  time  period,  Entry  DATASTOR  (Figure  1 9) 
gains  control,  calculates  summary  data,  and  stores  the  data  on  a  disk  pack  for  use  at  the  end  of  the 
simulation  Entry  DATASTOR  totals  assets  for  the  time  period  by  summing  rows  2  through  L  in 
the  tour  and  columns  1  thiough  MAXLEN  in  the  system  in  each  matrix  It  totals  transients  in  row  1 
and  columns  1  through  MAXLEN  for  each  matrix  also  These  totals  are  then  arranged  within  tour 
areas  and  stored  on  the  disk 

Personnel  distributed  by  DISTR  are  projected  assets  and  transients  for  PGs  within  DAs 
These  projections  determine  manning  levels  in  GMMANLEV  which  are  in  turn  filled  according  to 
the  priority  of  fill  rules  in  the  GMM.  The  data  stored  in  DATASTOR  summarize  the  actual  number 
of  assets  and  transients  for  each  matrix  in  the  GMM  after  personnel  have  been  moved.  These 
actual  assets  and  transients  are  the  data  which  are  of  interest  to  management. 

Step  8.  Output  DISTRO  II  summariied  data  Entry  OUTPUTD  (Figure  20)  initially  reads  the 
data  stored  by  DATASTOR  It  then  transforms  the  matrix  data  into  DA  data  and  redistributes  it  to 
the  PG’s  across  DA's.  Transients  from  the  current  time  period  TPg  being  output  are  distributed 
in  relation  to  assets  for  the  following  TP,. 

OUTPUTD  prints  the  following  information  for  each  time  period  which  has  been  simulated. 


TIME  BLOCK  N 


DISTRIBUTION  GROUP  J 


Priority 

Number 

Manning 

Percent 

Group 

Authorized 

Level 

Fill 

Shortfall 

Transients 

This  output  describes  the  time  period  which  is  being  summarized,  the  distribution  area  or  tour 
area,  and  the  priority  group  within  the  tour  area.  Each  priority  group  is  further  described  by  its 
authorization,  actual  manning  level,  percent  of  authorizations  filled,  its  shortfall,  and  the  number 
of  transients  who  will  become  assets  in  the  next  time  period.  This  output  presents  management 
with  a  detailed  picture  of  where  its  personnel  are  located.  The  DISTRO  II  output  locates  men  in 
priority  groups  within  distribution  or  tour  areas.  By  looking  also  at  the  GMM  output,  management 
can  see  the  specific  types  of  personnel  who  are  serving  in  any  one  distribution  or  tour  area 
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Figure  19.  Entry  DATASTOR  stores  DISTRO  II  data 
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Figure  20.  Entry  OUTPUTD  outputs  DISTR02  summary 
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Figure  20  continued 


APPENDIX 


FORTRAN  LISTINGS  OF  DISTR02  SUBROUTINES 


r»oooooor>  r>  r>  nr>oor>'->ooo 


31/3?/330n  FORTRAN  (3.1)/mS0S  01/03/71 


SI  HPOUTINf  uistr<v 
NOVEMBER  i  Rft<»-PROGHAMMF  R  wITT 

SlRMOUTINc  OISTROi?  DETERMINES  MANNImG  LEVELS  FOP  DISTRIBUTION  AREAS 
RASFD  ON  WORLD  WIDE  AvAlLABILITy  OF  PERSONNEL. 

CAl.CUiATFS  TOTAL  ASSETS  CURRENli  Y  SERVING  In  AN  AREA. 

CALCUiATES  TOTAL  AVAILABLE  FOR  pEASSIGNMtNT  TO  SPECIFIC  HI  STRlB'  iT  TOtg 
AREAS. 


CnMM0N 

IP  ,lNE(4fl) 

.ifnd  .jk 

.SYST UB.4B) 

COMMON 

ITRTIME  .NOTR(IO) 

.length ( 100) 

•OUT (100) 

COMMON 

TRINT  (100)  .TR INS  (100)  •  TROllTT  ( 1  00) 

COMMON 

T  POUTS (100) 

.fstrowo ( i no ) 

♦LSTROwO (100) 

COMMON 

FSTCOLOOOO) 

.LsTCOLO ( 1 00 ) 

.FSTHOwI (100) 

COMMON 

FSTCOLI  U00) 

.PrTOUT (100) 

.PCTIN(IOO) 

COMMON 

NEEDS ( 30 ) «NE ( 30. 1 0 ) 

. NS  T  T ( 30 ) .  INOS (10. 

10) 

IoFfb 

71 

COMMON 

INTOUR (50) , 

INgiiB(SO)  .'OUTlnUR(sO) 

6  JAN 

71 

COMMON 

OUT  SUB (SO ) . 

AFtFR ( SO ) . PER (SO  )  • 

PEHOUT (50) 

6  JAN 

71 

COMMON 

rep(So).  ion (so) . 

I  Grade ( so ) • 

1TYPE (SO) 

6  JAN 

71 

COMMON 

IOSOO)  .NEOUOl 

•  NEF(IOO)  .IFIi.L 

.maxlfm 

IoFfb 

71 

COMMON 

NT0IJR  ,NP 

«C|OS  ,SYS(4B, 

4fl) 

COMMON 

POW  .LSTRSTO(IO)  .LSTpSTT (10) 

COMMON 

LSTWSTS (10) 

•ITT  .MAXSUB 

.ACT(lO) 

1  oFEB 

71 

COMMON 

1DISTON  . 1  SUM 

.GrPSUM( 100) 

COMMON 

REGROW (100) 

.EnOROWIIOO) 

♦BtGCOL(lOO) 

COMMON 

■ENOCOL(IOO) 

.MaTSUM(IOO) 

.MATGRPS (100) 

COMMON 

TYPE(lOO) • SUR ( 1 00 1 

♦  Niim(IOO)  .ACTUALOOO) 

COMMON 

nprlev  ,nt 

.ImolO  ,LEN 

.LtvEL  .M 

COMMON 

NCRNODE (100) 

.MTN(IOO)  .GRPTNPR(IoO) 

COMMON 

Intel  ,nott 

.first  .last 

.IPRINT 

?A.FEB7l 

following 

COMMON  STATEMENTS  USED 

ON|  Y  IN  ASStT.PREPARt.  AND  ALLOT 

COMMON 

AUTH(lOO)  .PRAUTH ( 10. 10)  .ASSETS(lOO) 

COMMON 

MATwDGR ( 1  on) 

»R ( 1 00)  .PRASSET (10.10) 

COMMON 

DGRASSET (100) 

.PERNOS(lOn) 

.pernst(Ioo) 

COMMON 

PERIAV(IOO) 

.MaTWPERC(IOO) 

COMMON 

F  ILL ( 100)  .MaNLE V (100)  .NEWTN()oO> 

COMMON 

LIMITED  .lOSDGR(lOO)  .NtWAllfH  ( 1 00) 

COMMON 

DGRADTH (100) 

.ManDGR(IOO) 

.navcat 

IACTIVE  And  ITRAN  OVERLAP  IN  COMMON  WITH  -X5QA  VARIABLE  IBI. 

COMMON 

IACTIVE (100) 

.ItRAN(IOO) 

COMMON 

PRACT I VE ( 1 0* 1 0) 

InTEGFR 

type  .sub 

.Actual  .ENDcol 

.SYS 

iNTfcGER 

CIOS  ,SYST 

.OilTSUb  .outtour 

.after 

INTEGER 

ACT  .FIRST 

.GdpSUM  .hegrow 

.ENDROw 

integer 

HFGCOL  .TRINT 

.TbJNS  .TROiiTT 

.TROUTS 

integer 

FSTROWO  .FSTCOLO 

.FSTROW1  .FSTCOLI 

intfger 

AUTH  .PRAUTH 

.assets 

.DGRASSET 

INTEGER 

FIRST  .UGRAUTH 

.SiiMAUTH  .Flu 

REAL 

MENUSED  .MANLEV 

SECTION  1 

fntry  inpoto  inputs  distribution  data 
entry  inPhTU 


READ  lOO.^oOISGR.NRERCATiNoPHGRPfNMATRlXtLlMlTEn.NAwCATtlpERloD 
NoniSGR«N.iMBER  OE  DISTRIBUTION  GROUPS. 

NPERCATsNUMBER  OF  PERSONNEL  CATEGORIES. 

NOPRGRP=NiiHBER  OE  PRIORITY  GROUPS. 

NmATRIXsNmMHER  OE  MATRICES  SIMULATED. 
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Preceding  page  blank 


r>r>oor>r>or>  o  o  o  r>  o  o  o  o  <->  o  r>  ooorj 


C  NAVCAT=NUmHER  of  availability  categories. 

print  200.  NOUISGR.NPFBCAT.NOPRGRP, NMATRIX, nAVCaT 

c 

C  PARAMETER*  TO  OE TERM  INK  Av AILABILIT y 

PERCENT  Ok  AVAILABLE  FROM  ITH  MATRIx  WHO  ARE  ELIGlBl  E  FOR 
CONUS  ONLY  =  PERNOS { I ) .  (NOT  OVERSEAS) 

CONUS  /'NO  LT=PERNST(I) .  (NOT  SHORT  TOUR) 

CjENERAi  DISTRIBUTION  =  PERIAV(I). 

READ  101* (PERNOS(I) *PE«NST (I) »PERIAv(I> ♦I*1.NMATRIX) 

PRINT  201 . ( I.PERNOS(I) .PERNS T (I) .PEoIAV(I) ,1*1 .NMATpIX) 

IF (CIOS.Lr.O)  GO  TO  5 

InSOGR <I)=OISTRIBUTION  GROUP  FOR  ITh  INPUT  CATEGORY. 

READ  100* flOSDGR(l) *1*1 .CIOS) 

PRINT  208. ( i . IOSDGR (1). 1*1. CIOS) 

PARAMETER*  TO  DETERMINE  ASSETS 
MaTwdGR(Ii=U!STRIBUTION  GROUP  FOR  ITH  MATRIX. 

S  READ  100* (MATWDGR ( I ) ♦ 1=1 .NMATRIX) 

MATWPERC(T)*PERSONNEL  CATEGORY  FOR  f  TM  MATRIX. 

READ  100* (MATWPERC(l) .1=1. NMATRIX) 

PRINT  202. (I,MATWDGR(I),MATwPERC(I),I*1»NMATRIX) 

parameter*  to  determine  authorizations  and  manning  levels 
R « I ) =F III  rate  for  ith  distribution-priority  GROUPING. 
N=NOPRGRP*NOOISGR 
READ  101. (R(I>  ,1  =  1. N) 

NOAUTH=N0nISGR*NPERCAT*N0PHGRP 
READ  100. (AUTH(I) ,l*l,NOAUTH) 

RFAD  100, (NEWAUTH(I) *I=FIRST«LAST) 

NFWAUTH  VECTOR  CONTROLS  INPUT  OF  NEv  AUTHORIZATIONS.  IF  NEwAUTH ( I ) 
*0,  PREVIOUS  AUTHORIZATOONS  ARe  USEO. 

=1,  mEW  AUTHORIZATIONS  ARE  REAo. 

M=L  =  0 
PRINT  203 
00  10  1=1 . NODISGR 
00  10  J=1 .NPERCAT 
M=0 

DO  10  K* 1 « NOPRGRP 
L*L*  1 
M=M*  1 

10  PRINT  204.I»J*K,AUTH(L) ,R(M) 

RFTURN 


SECTION  2 

ENTRY  AVATL  CALCULATES  THF  NUMBER  Oe  PERSONNEL  AVAIl  ABLE  FOR  REASSIGN¬ 
MENT  TO  THE  FOLLOWING  DISTRIBUTION  GROUPlNGS- 
NOs=CONUS  ONLY  (NOT  OVERSEAS) 

NSt«C0NUS  AND  LT  (NOT  SHORT  TOUR) 

IAvxCONUS.LT,  AND  ST (GENERAL  DISTRIBUTION). 
entry  avail 

NOS*NST=IaV*0 
IF(CIOS.LF.O)  GO  TO  11 
DO  12  1*1, CIOS 

IF ( IOSOGR ( I ) ,EQ. 1 )  NOS*NOS* IOS ( I ) 

IF ( IOSDGR ( I ) .EO.?)  NST*NST»IOS(I) 

IF ( IOSDGR ( I) .EQ.3)  IAV*IAV*IOS( I ) 

12  CONTINUE 
11  DO  ?0  1*1, NMATRIX 
IUSE*2 
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o  o  o  o  o  r>  o  ooo  r>or»r>r>o  n  n  r>  ononooooo 


I M  T  o  r  =  n 

CAIL  SUMM^MY (2.I.INT0T.IUSE.0) 

NnS*NOS.lNfOT*PfcBNOSd> 

NST  =  NST.1mTUT<*PERNST< I) 

IAV=IAV*ImTOT*PE«IAV(I) 

iEdNTOToptHNOSd  )  ♦INTOT*PEHNST(  I  I  ♦  TNTOT*PERi AV  (I)  ,|  T.INT0T)  IAV  = 
1  I  A V* ( I NTOt-PFRNOS ( I ) *  INTO T “PERNS T ( I ) *INTOT"PERlAV ( 1 1 *  IN  TOT ) 

20  C0N1INUF 

PRINT  205.  NOS.NST.IAV 
PF  TURN 


SECTION  J 

ENTRY  AIJTmOM  groups  AUTHORIZATIONS  tnput  h y  DISTRIBUTION  GROUP, 

PERSONNEL  CATEG0HYS,AND  priority  group, ACCORDING  to  DISTRIBUTION 
GROUP  ANO  PRIORITY  GROUP.  IT  USES  SUBROUTINE  PREPARE. 

pRAUTH ( I ,  I)=AUTH0RIZATI0NS  F0R  ITH  pRloRITY  GRoUP  WHICH  CAN  BE  FILLFD 

HY  THf  jth  distribution  group  pfrsonnel. 
entry  auTmOR 

IF  INITIAI ,LF.  1,  NEW  AUTHORIZATIONS  ARE  REAU  FoR  TwIS  TIME  PERIOD. 

OTHERWISE. AUTHORIZATIONS  ARE  THp  SAME  AS  THE  PRFVlOUS  TIME  PERIoD. 

INITIAL  =? 

CALL  PREPARE ( INITIAL, NPERCAT.NOPRGRp.NODISGR) 
return 


SFCTION  4 

ENTRY  ASSrT  SUMMARIZES  ASSETS  FROM  MATRICES  ACCORDING  TO  DISTRIBUTION 
GROUPS. COLLAPSING  OVER  P£RS0NNE|  CATEGORIES. 

ENTRY  ASSfI 

ASSETS(I)=PERS0NNEL  CURRENTLY  SERVING  IN  ITH  MATRIX. 

DO  40  Isl.NODISGR 
DGRASSET ( t ) =0 
DO  4i)  Jsl.NOPHGRP 
40  PRASSEK J.IliO 

prassets(i,j»*assets  for  jth  priorities  within  itm  distribution  groups. 

DO  45  I.1.NMATRIX 
JsMATWDGR i I ) 

DGRASSET  (  I) *DGRASSET ( J) .ACTUAL ( I ) 

45  ASSETS ( I ) r ACTUAL ( I ) 

PRINT  207, (J. DGRASSET ( J) t J=1 .NODISGp) 
rfturn 


SFCTION  5 

entry  uistr  distributes  assets  among  PRIORI  tv  groups  within  each 
distribution  group, 
entry  distr 

DO  SO  I«l .NODISGR 
NEWIP«DGRaSSET(I) 

IF (NEWIP.I  E.o)  GO  TO  50 
LIMlTEOsl 
JPR*I*N0PPGHP 
inlSsi 
NODISM 

c  NEBIPsPEpSOnNEL  to  bf  distributed 


-  *3  * 


o  o  o  r>  o  o  r>oooor> 


C  NOOIS=NUmHER  of  distribution  group*;  TO  HE  TONSIDERfD. 

0  iniRsFIRcT  OISTRIHUriON  GROUP  TO  Be  CONSIDERED. 

IOVERsO 

C  OJST  RIHKTf  AVAILABLE  PERSONNEL  UP  To  AUTHORIZATION  |  EVELS. 
CALL  ALLOT < NEW  IP.  IUIS.NOPRGRP, NOD 1S.IOVER) 

50  CONTINUE 

no  55  1=1 .NAVCAT 
lFII.LE.lt  NEKIP=N0S 
IFII.EQ./?)  NEWIPrNST 
lF(I.GE.3t  NEWIP=IAV 
IF  (NEWIP.i  E.0)  GO  TO  55 

iovfr=o 

IOISsNAVCaT-IM 

noois=i 

LIMlTEU=l 

CALL  ALLOT (NEW  IP, IOIS,NOPRGHP,NOUIS. I  OVER) 

55  CONTINUE 

IF(I0VER.I  E.0)  GO  TO  58 

c  distribute  extra  personnel  to  conus. 

iniS=NOnlsGR 
NODI  5= 1 
NFW1P=I0VFR 
IOVERSO 
LIMl TEDsO 

CALL  ALLOT«NEWIP.IDIS.NOPRGHP,NODIS.IOVER) 

58  CONTINUE 
RETURN 


SECTION  6 

ENTRY  GMMaNLEV  TOTALS  MANNING  LEVELS  ACROSS  PRIORITY  GROUPS  WITH 

DISTRIBUTION  GROUPS.  THE  TOTAi  S  ARE  SET  EoUAL  TO  THE  VARIABLE  NEEDS. 
ENTRY  GMMaNLEV 

KrO 

DO  85  Isl.NODlSGR 
DGRMANsfl.n 

DGRMAN=Ol«;TRIBUTION  GROUP  MANNING  LFVEL. 

DO  84  Jsl.NOPRGRP 
KeK*  1 

64  DGRMAN*OGrMAN«MANLEV(K) 

85  NED(I)«NEfDS(I)*DGRMAN 

PRINT  209. < I, NEEDS  <  I), Isl.NODlSGR) 

DO  86  Isl.NMATRIX 
JsMATWDGR ( I ) 

NEEDS ( J) *mEEOS ( J) -ASSETS  <  I ) 

IF(NEEDS<  )> .LT.O)  NEEDS (J) *0 

86  CONTINUE 

PRINT  210. < I, NEEOS( I), Isl.NODlSGR) 

RFTURN 


section  1 

ENTRY  DATaSTOH  CALCULATES  AND  STORES  TOTALS  OF  ASSETS  AND  TRANSIENTS  RY 
DISTRIBUTION  GROUP  ANO  PERSONNEL  CATEGORIES. 

entry  datastor 

L*NODISGR#NpEHCAT 
NsNOOISGRsNPERCAT 
no  7*.  I«hN 
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r>  r>  o  o  r> 


74  ITRAN<I)=!aCTIVF(I)=0 
C 

un  7<s  i*i, n matrix 

c  rfaO  ith  matrix  anu  sum  assets. 
lTRANS=IArTUAL=IREAO=0 
II  Sfc  =1 

CALL  SUMMARY (1,1,  I  ACTUAL* IUSE , IREAO) 

C 

IUSE=1$T«FAU=1 

C  SUM  TRANSIENTS  IN  ROW  1  AND  COLUMNS  1  TO  MAxLEN  OF  THE  ITH  MATRIX. 

CALL  SUMMARY ( 1  ,1,1  TRANS, IUSE, IRE AO) 

C 

C  TOTAL  ASSFTS  AND  TRANSIENTS  BY  DISTRIBUTION  GROijP  and  personnel  CATfGoHy. 
JsMATWDGR, I ) *NPERCAT-NPERCAT*MATWPErC< i> 

IaCTIVE(Ji=1ACTIVE(J)*IACTUAL 
7..  ITRAN(J)=tTRAN(J)*ITRANS 

c 

c  store  totals  ()f  assets  and  transients  on  lu  u. 

K=INTEG*2-1 

CALL  RANWrITF«14.IACTIVE*L»K) 

K  =  K  ♦  1 

CALL  RANWPlTF ( 14.  ITRAN,L*K) 

PRINT  211.K*  (I,lACTIVE(I),ITRAN(I)*T  =  l*L) 

RETURN 


SFCTION  8 

FMTRY  OUTPUTO  REAUS  STORED  DISTRIBUTION  DATA  ANO  OUTPUTS  IT  IN  A  MOnlFlFD 
TARUi  AR  FORM. 

ENTRY  OIJTPUTO 
C 
C 

IPFR=1 

L=NODISGH*NREHCAT 

DO  80  1  =  1. L 

ASSETS ( I ) r ACTUAL ( I ) =0 

80  I ACTIVE ( I ) *  I  TRAN ( I ) =0 
PRINT  212 

DO  90  I=FtRST.LAST 
K  =  I *?- 1 

CALL  RANRFAD  ( 14* 1ACTIVE*L*K) 

K  =  K*  1 

CALL  RANRrAO (14,ITRAN»L*K) 

C  COLLECT  ASSETS(IACTIVE)  AND  TRANSIENTS ( I  TRAN l  WITHIN  DISTRIRUTION- 
C  PERSONNEL  CATEGORIES  INTO  SPECIFIED  OUTPUT  TlMF  INTERVALS ( IPERlOp) . 

DO  81  Jrl.L 

ASSETS ( J) 3 ASSETS <  J) ♦ I ACTIVE (J) 

81  ACTUAL (J) r ACTUAL  ( J) ♦ITRAN( J) 

PRINT  21 7,  (J,  ASSETS  (J),  ACTUAL 
lOUTPERsI/IPERIOD 

X1  =  I 

X I PERIOD8 1 PERIOD 
XOUTPER=Xl/X IPERIOU 
PRINT  218.IOUTPER.XOUTPER 
IF(IOUTpEo.NE.XOUTPER)  GO  TO  90 

c  spread  aSsEtsiassets)  and  transientsiactuad  among  priority  groups 

c  ANO  OUPTUT  FOH  IPER  TIME  BLOCK . 

PRINT  213.IPFR 
ICAT«0 

00  88  J=1,N0DISGR 
PRINT  214, J 
PRINT  215 
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oo  as  k=i,npercat 

ITER=0 

82  IF(ITER.Gf.I)  GO  TO  83 
iCATsICAT.l 
NEWIP=ASSfTS(1CAT) 

83  I0IS=J 
N0DIS=1 

L I  Ml T£D=0 
IOVER=0 

DO  84  KK=i .NOPRGRP 

84  PRASSET(Kk»J)=0 

IF (NEWIP.i  E.O)  GO  TO  91 

CALL  ALLOT (NEWIP* IOIS,NOPRGRP,NOOIS, IOVER) 

C  NF (10.10)  IS  USED  TO  TEMPROAHILY  STORE  DISTRIBUTED  ASSETS  WHILE  TRANSIENTS 
C  ARE  RElNG  DISTRIBUTED. 

91  IF ( I TER.Gf . 1 )  GO  TO  86 
00  85  KK=1 .NOPRGRP 
as  practive(kk»j)=prasset(kk,ji 
ITERsITER*1 
NFWIPsACTiiAL  ( ICAT ) 

GO  TO  8? 

86  00  87  IC0m=1,N0PRGHP 
XPRAUTHsPpAUTH ( I COM. J ) 

PERFILL*POACTIVE(ICOM,J)/XPRAUTH 

ISH0RT=XPRAUTH-PRACT1VF(IC0M.J) 

87  PRINT  216.K, ICOM.PHAUTH  ( ICOM* J) .PRA^TI VE < ICOM, J) ,PEpF ILL , ISHORT .PR 
IASSET(ICOm.J) 

88  CONTINUE 
IPERsIPER* 1 
00  89  J*1.L 

ASSETS (J) s ACTUAL  ( J)  »0 

89  I  ACT  I VE ( J) «ITRAN  < J)  *0 

90  CONTINUE 
RFTURN 


subRoutinf  distr<)2  Formats 

100  format (8ii o) 

101  format (8Fi o»3) 

200  format(?4modistribution  parameters/ /3Ihono.  of  oistoibution  groups 

1  *  I3/31M0NO.  OF  PERSONNEL  CATEGORIES  *  I3/31H0NO.  OF  PRIORITY  GR 

101PS  «  I3/31HONO.  OF  MATRICES  SIMULATED  >  13  /31HONO.  OF  AV 

IAILARILITv  CAT.  «  13) 

201  FORMAT (43M0MATRIX  PERCENT  OF  AVAIi  ABLE  EL  I G I B(  E  FOR/10X*33HCONUS 
1  ONLY  COnUS.LT  CONUS, LT. ST/13X*5H(NOS) .5X.5H(NST) ,  7X,5H(lAV)// 

1  (I5.F12.3.FU.3.F12.3) ) 

202  FORMAT (/47H0MATRIX  DISTRIBUTION  GROUP  PERSONNEL  CATEGORY/ ( 15, I 12 
1.T23) ) 

203  FORMAT (/SaHODISTRIBUTION  PERSONNEL  PRIORITY  AUTHORIZATION  FIL 

1L/36H  r,R0uP  CATEGORY  GROUP  I5X.6HRATIO  /) 

204  FORMAT (17, 113*111, 114.E12.3) 

205  FORMAT (//aOHOPERSONNEL  AVAILABLE  FOr  DISTRIBUTION  TO/21H0CONUS 

1  r  » I5/21HOCONUS  AND  LT  «  ,  I5/21HoCONmS.  LT«  AND  ST 

1  =  « 15) 

206  FORMAT  (18H0ASSETS  FOR  MATRIX,  U.3M  .  ,  15/  ( lRX ,  U,  3H  *  tl5)> 

207  FORMAT(28wODISTRIBUTION  GROUP  ASSfTS/ (I14.8X.T6)) 

208  FORMAT {/2OH0INPUT  GROUP  DISTR.  GROUP/ ( 1 7» 1  Ox, I6l > 

209  FORMAT  (  12hOOISTR.  GRP.  ,3X,  13HMANNINO  LEVEL/ ( 18* T  1 6 ) ) 

210  format (12mODistr*  grp..3x,12hneeoed  input/ ( ta« 1 16) ) 

211  FORMAT (30H0UATA  STORED  FOR  DISTRO  PERIOD* I3/26HoGROuP  ACTIVE  TRA 
1NSIENTS/(T5»I9,I12)) 
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212  FORMAT (//?7X«25HDlSTRIHUT10N  DATA  SUMMARY//) 

213  FORMAT (  3tX,10HTIME  BLOCK, 13) 

21*  FORMAT<  /19M0OJSTRIBUT1ON  GROUP, 13) 

215  FORMAT (/ArHOPERSONNEL  COMMAND  NUMBER  MANNING  ^EHCENT/72H0C 
1 ATEGORY  ELEMENT  AUTHORIZED  LEVFL  FILL  SHORTFALL  TRaNSI 
1ENTS) 

216  FORMaT(I7,I10*IB.F11.3,F10.J»I10»F1i ,3> 

217  FORMAT (22H0MATRIX  ACTIVE  I  TRAN/ ( I* ,  19, 17 ) > 

21ft  FORMATUOhOIOUTPER  *, 13, 10HXOUTPER  a  F3.2) 

END 
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VARIABLES  WHICH  APPEAR  ONLY  IN  A  TYPE  STATEMENT 
SUMAUTH  MFNiiSED 

NULL  STATEMENT  NUMBER 
206 


» 


< 
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31/32/3300  FORTRAN  <3. 1 ) /MSOS  OI/O3/7I 
Sl&ROUTINP  ALLOT  (NEW  IP , IU I S.NOPrGhP .NOUIS. InVER) 

3  NOVEMbfR  1969.  PROGRAMMER  WITT 

SUBROUTINE  ALLOT  DISTRIBUTES  ASSETS  TO  PRIORITY  GROUPS. 


COMMON 

IP  « INE (48) 

•  IFNU 

»  JK 

♦SYST (46.46) 

COMMON 

ITRTIME  ,N0TR(10> 

.LFNGTH(IOO) 

.OUT(lOO) 

COMMON 

TRINT (100) fTRlNS(lOO) 

. TROuTT ( 1 00) 

COMMON 

TROUTS(IOO) 

♦FsTROWO(lftO) 

♦LSTROWO(IOO) 

COMMON 

FSTCOLO (100) 

.LsTCOLO(lftO) 

.FSTROwUlOO) 

COMMON 

F'STCOL  I  <  1  00) 

.PrTOUT(lOO) 

.PCTIN(IOO) 

COMMON 

NEEDS (30) *NE (30*10) 

*NS  T  T ( 30 ) . 

INOS(10. 

10) 

InFEB 

71 

COMMON 

lNTOUR (50) « 

IN<;jB(50)  . 

OUTTOUR(sO) 

6  JAN 

71 

COMMON 

UUTSUB (50) . 

AFtER<50) » 

PER(SO) . 

PEHOUT (50) 

6  JAN 

71 

COMMON 

REP (50)  ♦  IOD<50)» 

IGpaOE (50 ) 

. 

ITYPE(SO) 

6  JAN 

71 

COMMON 

I0S(10)  .NED(30) 

.NfeHOO) 

.IFILL 

.MAXLEN 

loFEB 

71 

COMMON 

NTOUR  .NP 

.CTOS 

.SYS (48. 

46) 

COMMON 

PDW  .LSTRSTOUO) 

.LSTPSTT ( 1 0) 

COMMON 

LSTRSTS ( 10) 

.ITT 

, MAXSU8 

.ACT ( 30) 

lftFEB 

71 

COMMON 

ioiston  . 1  SUM 

.GrpSUM(IOO) 

COMMON 

HEGROW (100) 

.EnOROW (100) 

.BEGCOL(lOO) 

COMMON 

ENDCOL ( 1 00 ) 

.M*TSUM(100) 

.MATGRPS(IOO) 

COMMON 

TYPE(lO0).SUR(lOO> 

.  Niim(IOO) 

.ACTUAL (100) 

COMMON 

NPRLEV  ,nt 

.  I  hold 

,LEN 

.LEVEL  .M 

COMMON 

NCRNOOE (100) 

.Min(IOO) 

.GRPTNPR(lnO) 

COMMON 

INTEG  ,NOTT 

.ftrst 

.LAST 

.IPRINT 

2AFFB71 

FOLLOWING 

COMMON  STATEMENTS  USED  ONi.Y  IN  ASSET. PREPARE.  AND  ALLOT 

COMMON 

AUTH(IOO)  .PRAUTH ( ]0.1ft) 

.ASSFTS ( 1 0  0  > 

COMMON 

matwdgr (100) 

.R  f 100) 

.PRASSET(IO.IO) 

COMMON 

UGRASSET (100) 

.PFRNOS(IOO) 

.PERNST (100) 

COMMON 

PERIAV (100) 

.MaTWPEHCOOO) 

COMMON 

FILL (100)  .MANLEV(IOO) 

.NEWTN ( 1 nO)  . 

COMMON 

LIMITEO  .  10SDGR (100) 

.NEWAUTH(IOO) 

COMMON 

UGRAUTH ( 1 00 ) 

.ManOGR(IOO) 

.NAVCAT 

COMMON 

RAT (100)  .SUMAUR(IOO) 

.suMASsnon) 

INTEGER 

TYPE  .SUB 

.ACTUAL 

.ENDCOL 

.SYS 

integer 

CIOS  .SYST 

.O11TSUH 

.UUTTOUR 

.AFTER 

integer 

ACT  .FIRST 

.GpPSUM 

.BEGPOW 

.ENOROw 

INTEGER 

HEGCOL  .TRINT 

.TrINS 

.TROuTT 

.TROUTS 

integer 

FSTROwO  .FSTCOLO 

.FsTROWI 

.FSTCOLI 

INTEGFR 

AIJTH  .PRAUTH 

.ASSETS 

♦oorasset 

INTEGFR 

FIRST  .UGRAUTH 

.SilMAUTH 

.fill 

RFAL 

MENUSEO  .MANLEV 

NsNOD  I  S*Nr»PRGKP 
ISTARTsIDtS*NOPRORP-NOPPGRP»1 
1ST0P=IsTaMT*N-1 
PRINT  102. N 

iF(LIMITtn.EO.l)  PRINT  103 

NrTOTAL  NUMBER  OF  PRIORITY  GROUPS  TO  WHICH  ASSFTS  ARE  UISTpIBUTED. 
AUTh(I)=aUThORIZATIONS  for  priority  GROUP  T. 

ASSETS(I)=ACriJAL  CURRENTLY  SERVING  IN  GROUP  1. 

P  ( I )  =GROi  IP  I  RATIO 

LIMITEO.  IF=1 .FILL  GROUPS  USING  AUTHORIZATIONS  AS  UPPER  LIMIT. 

IFsZ.F ill  GROUPS  with  ALL  AVAIi able  PERSONNEL. 
mFWIP=NEw  AVAILABLE  input. 

obtain  Summary  statistics 
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SUHAUTHslTEHsO 

PRINT  100,(UPRAUTH(I),RRaSSET(I) « Isl « 30> 

lf)IS*IDIS*NOniS-l 

I=ISTART-» 

DO  2  Js!OtS«LOIS 
TOTASSsTOtAUR=0 

C  CALCULATE  SUMS  OF  ASSETS  ANU  AUTHORlZATIONS.RATlOS  FOR  JTH  DISTRIBUTION  6R 
RaT ( J) =0»o 

SUMAJTHaSnMAUH(J) «SUMASS( J) *0 
DO  1  K=1»mOPRGRP 
I  *  I  ♦  I 
FILL ( I ) *0 

Sl'MAUTH«Si|MAUTH*PRAUTH  (K*  J) 

Sl'MAUR  ( J)  aSUMAUR  ( J)  ♦PRAUTH  ( K «  J )  »R  ( I) 

1  Sl'MASS(J)=SUMASS(J)*PPASSET(K,J) 

PRINT  106.  SUMAUTH, SUMAUR ( J) « SUM ASS (J) • TO  TASS 
C 

IF (SUMASSf J) .LE.O)  PRINT  lOl.RAT(J) 

C  CALCULATE  TOTAL  number  OF  ASSETS  and  auth.ratios  for  entire  SYSTEM. 
TOTASS*TOtASS*SUMASS  < J) 

2  TOTAUR*TOtAUR»SUMAUH<J) 

1*0 

PRINT  106,I.TOTAUR»TOTASS,NEWIP 

tot*totas<;*newip$tota*totauh 

IF(TOT.LE.O)  GO  TO  41 
C 

3  RATIO*TOT/TOTA 
PRINT  108, RATIO 
IRUN-I 

00  4  J*IDtSiLDIS 

if (Rat < j) .ne.o.o)  go  to  4 

IF ( SUM ASS (J) .GT.O.O)  GO  TO  7 

RX*0.0 

GO  To  8 

7  RX*SUMASS( J) /SUMAUR ( J) 

8  IF (RX.LT. PATIO)  GO  TO  4 

C  WHEN  RAT(.l)  .GT, RATIO* SET  RAT  ( J)  «SUM|SS U> /SltMAUR  ( J)  . 

RAT ( J) *RX 

tot  *tot-sumassu) 

TOTA.TOTA- SUMAUR ( J) 

IRUN*2 

4  continue 
C 

GO  TO (5,3) . IRUN 

5  DO  6  JelDTS.LOIS 
C 

C  WHEN  RAT(  )) »LT, RAT  10, SET  RAT (J) .RATIO. 

if  (Rat (  jj  .eo.o.o)  rat<j)«ratio 

6  CONTINUE 

print  iii,(J,rat(J) »j*iois»lois> 

MINIMUM  aSSIGNEO  TO  GROUP < I ) -ASSETS.  IF  LIMITED.) .MAXIMUM  ASSIGNED 
TO  GrOUP(I)«AUTH(I),  OTHERWISf, UPPER  limit.f (AVAILABLE  PERSONNEL). 
PRINT  108, RATIO 
MENUSEO.O 

ITER.ITER.1 
I.ISTART-l 
00  15  J. InIS, LOIS 
00  15  K.l.NOPRGRP 
1*1  ♦  1 

IF  (FILL ( I ) .EG. l )  GO  TO  15 
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AsPRAUTH  (k  »  J) 

MANLEV <T  ) =RAT ( J) *R < I ) *A 
PRINT  109.1,MANLEV(I> 

IF (MANLEV/ 1) ,LT.PRASSFT(K,  J) )  GO  TO  12 
lF(MANLEVf I) ,LT.PRAUTH(K,J) )  GO  TO  14 
IF(LIHITEO.EO.I)  MANLEV! I )»PRAUTH(K,J) 

PRINT  109,1 , MANLEV ( I I 

IF (MANLEVf I) ,LT.PRASSET<K,J))  GO  TO  12 
F ILL  ( 1 ) s 1 
GO  TO  14 

1?  MANLEV(I)=PRASSET(K,J> 

FILL  (I)«l 

1*  MFNUSEO*MFNUStO»MANLEV(I) 

15  CONTINUE 

PRINT  107.ITEH, MENUSEO 
PRINT  110. TOT 
C 

C  CHECK  FOR  ROUNDING  ERRORS 

IF (TOT  . EO.MENUSED)  GO  TO  30 
IF ( TOT  .LE.MENUSEO)  GO  TO  17 
PRINT  110. TOT 
PRINT  107, ITER, MENUSEO 
C 

17  NFILL*0 

IF (LIMITEn.EQ.O)  GO  TO  24 
PRINT  107, ITER, MENUSEO 
I«ISTART-1 
DO  20  J«InIS,LDIS 
00  20  K«l,NOPRGRP 
1*1*1 

nfill«nfii  l*f 111  < i i 

IF (FILL ( I \ ,NE . 1 )  GO  TO  20 
AsPRAUTh(k,J) 

TOTAxTOTA-A*R< I) 

TOT»TOT-MaNLEV(I) 

20  CONTINUE 
C 

IF ( TOT  .LE.O)  GO  TO  30 
IF (NFILL.^T . 0, ANO.NF lLL.LT .N)  GO  TO  3 
IF (NFILL.fQ.N. ANO.TOT  .EQ.MENUSEO)  GO  TO  30 
2*  TOT  «TOt  -MENUSED 
ITOT-TOT 
00  25  1*1 . ITOT 
25  MANLEV ( I ) xMANLEV ( I) ♦ 1 
30  IOVER«TOT  -MENUSEO 
C 

PRINT  10* 

IxISTART-1 
00  40  J*InIS,LOIS 
00  40  KxUNOPRGRP 
1*1*1 

NFWlNI I ) *mANLEV ( I ) -PR ASSET (K» J) 

IF  <  NEWIN ( T » .LT.O)  NEWIN(I)«0 
C 

IF (MANLEV ( I ) .GT.PRASSET (K, J) >  PRASSFT (K, J) «MANLFV ( I ) 

40  PRINT  105, (I,R(I) ,PRAUTH(K,J),MANLEv(I> ,PRASSET(K,Jl ,NEMIN(I) ) 

41  CONTINUE 
C 

C  SUBROUTINE  ALLOT  FORMATS, 

100  FORMAT (2ll0«Fl0*3) 

101  FORMAT (0Fi  0,4) 
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102  FORMAT <?9h0NUMB£R  OF  PRIORITY  GROUPS  *  »I?> 

103  FORMAT ( 43h0 AUTHOR  I ZAT IOnS  5ERVE  AS  GROUP  UPPER  UhItS) 

104  FORMAT(A9h0PR*GRP«  RATIO  AUTHORIZATION  MANNING  LEVEL  ASSET 
IS  NEW  ImPUT) 

105  FORMAT(I4,7X,F6.3»3X.I9»6X*F10.3tFll.3  .4X.16) 

106  FORMAT <?7mOTOTAL  NUMBER  AUTHORIZED  =  I6./26HOTOTAL  aUTHORI?FO*RATI 
10  =  F10.3/34H0TOTAL  NUMBER  OF  CURRENT  ASSETS  ■  F10.T/27HOTOTAL  TO 
1RF  DISTRIBUTED  =  F10.3) 

107  FORMAT (13hOITERATION  =  I3/22H0NUMBEp  OISTRIbUTEo  =  C6.2) 

108  FORMAT  (9HORATIO  *  F5.3) 

109  FORMAT(12uOPR.  GRP.  =  U«SX«17H  MANmING  LEVFL  s  F6,?> 

110  FORMATdOHOTOTASS  «  Flo. 3) 

111  FORMAT (P5M0DISTR.  GRP.  FILL  RATI0/(I7.7X.F7.3) ) 

FND 
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NO  ERRORS 


